home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 3 / Amiga Format CD03 (1996-07-04)(Future Publishing)(GB)(Track 1 of 6)[!][issue 1996-08].iso / rexx / addicons.arexx next >
Text File  |  1996-05-20  |  330b  |  15 lines
  1. address command "list >ram:noiconlist  ~(#?.info) quick files nohead"
  2. address
  3. if ~open("listfile", "ram:noiconlist", "read") then do
  4.    say "fatal error"
  5.    exit
  6.    end
  7. do until eof("listfile")
  8.    this_line = READLN("listfile")
  9.  
  10.    com_line = "copy ram:deficon "this_line".info"
  11.    address command com_line
  12.    end
  13. say "done"
  14. exit
  15.